﻿Public Class FrmDevolverPelicula
    Private Sub FrmDevolverPelicula_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Me.AlquilerTableAdapter.FillAlquileresNoDevueltos(Me.EjercicioDataSet.Alquiler)
    End Sub

    Private Sub btnBuscar_Click(sender As System.Object, e As System.EventArgs) Handles btnBuscar.Click
        Dim filters As New List(Of String)
        If (Not String.IsNullOrEmpty(txtBusquedaCodigoDeBarras.Text)) Then
            filters.Add("pelicula_codigo_barras LIKE '%" & txtBusquedaCodigoDeBarras.Text & "%'")
        End If
        If (Not String.IsNullOrEmpty(txtBusquedaNombrePelicula.Text)) Then
            filters.Add("pelicula_nombre LIKE '%" & txtBusquedaNombrePelicula.Text & "%'")
        End If
        If (Not String.IsNullOrEmpty(txtBusquedaDNISocio.Text)) Then
            filters.Add("socio_dni LIKE '%" & txtBusquedaDNISocio.Text & "%'")
        End If
        If (Not String.IsNullOrEmpty(txtBusquedaNombreSocio.Text)) Then
            filters.Add("socio_nombre LIKE '%" & txtBusquedaNombreSocio.Text & "%'")
        End If
        If (Not String.IsNullOrEmpty(txtBusquedaApellidoSocio.Text)) Then
            filters.Add("socio_apellido LIKE '%" & txtBusquedaApellidoSocio.Text & "%'")
        End If
        If (filters.Count > 0) Then
            AlquilerBindingSource.Filter = filters(0)
            For i As Integer = 1 To filters.Count - 1
                AlquilerBindingSource.Filter += " and " & filters(i)
            Next
        Else
            AlquilerBindingSource.Filter = ""
        End If
    End Sub

    Private Sub btnAceptar_Click(sender As System.Object, e As System.EventArgs) Handles btnAceptar.Click
        If AlquilerDataGridView.SelectedRows.Count > 0 Then
            Dim filaAlquiler As EjercicioDataSet.AlquilerRow = CType(CType(AlquilerBindingSource.Current, DataRowView).Row, EjercicioDataSet.AlquilerRow)
            filaAlquiler.fecha_devolucion = Date.Now
            Try
                AlquilerTableAdapter.Update(EjercicioDataSet)
                Me.Close()
            Catch ex As Exception
                MessageBox.Show("Ha ocurrido un error en la actualización del alquiler")
            End Try
        Else
            MessageBox.Show("Debe seleccionar un alquiler")
        End If
    End Sub

    Private Sub btnCancelar_Click(sender As System.Object, e As System.EventArgs) Handles btnCancelar.Click
        Me.Close()
    End Sub
End Class